home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / gsdrgb.for < prev    next >
Text File  |  1991-05-01  |  510b  |  22 lines
  1.         SUBROUTINE GSDRGB(ICOLOR,RED,GRN,BLU,IERR)
  2.         IMPLICIT NONE
  3.         INTEGER ICOLOR,IERR
  4.     INTEGER*1 IAND
  5.         REAL*4 RED,GRN,BLU,RGB(3)
  6.         INCLUDE DIGLIB$KOM:GCDCHR.PRM
  7. C
  8. C       DEFINE A COLOR
  9. C
  10.         IF ( IAND(IDVBTS,64) .EQ. 0 .OR.
  11.      1   (ICOLOR .GT. NDCLRS) .OR.
  12.      2   (ICOLOR .LT. 0)) GO TO 900
  13.         IERR = 0
  14.         RGB(1) = RED
  15.         RGB(2) = GRN
  16.         RGB(3) = BLU
  17.         CALL GSDRVR(10,FLOAT(ICOLOR),RGB)
  18.         RETURN
  19. 900     IERR = -1
  20.         RETURN
  21.         END
  22.